home *** CD-ROM | disk | FTP | other *** search
/ SGI Performance Co-Pilot 1.3 / SGI Performance Co-Pilot 1.3.iso / dist / pcp.idb / usr / pcp / lib / pmie-common.z / pmie-common
Text File  |  1997-04-03  |  4KB  |  156 lines
  1. #!/bin/sh
  2. #
  3. #  WARNING: BEGIN
  4. #    DO NOT MODIFY THIS SCRIPT.  YOUR CHANGES MAY BE LOST!
  5. #
  6. #  This script was installed as part of the Performance Co-Pilot
  7. #  software installation.
  8. #
  9. #  WARNING: END
  10. #
  11. # Copyright 1995, Silicon Graphics, Inc.
  12. # ALL RIGHTS RESERVED
  13. # 
  14. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  15. # States.   Use of a copyright notice is precautionary only and does not
  16. # imply publication or disclosure.
  17. # 
  18. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  19. # Use, duplication or disclosure by the Government is subject to restrictions
  20. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  21. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  22. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  23. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  24. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  25. # 
  26. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  27. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  28. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  29. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  30. # GRAPHICS, INC.
  31. #
  32. # common /bin/sh procedures for standard pmie action scripts
  33. #
  34. # $Id: common.sh,v 2.1 1997/03/26 03:09:56 kenmcd Exp $
  35.  
  36. PMIEDIR=/tmp/pmie    # control and lock files live here, directory is
  37.             # made writeable by everyone
  38. LOCK=$PMIEDIR/lock    # lock file
  39. LOCKWAIT=5        # wait this long for the lock, then give up
  40.  
  41. # control files ... copy $MASTER to $CONTROL if required, and make
  42. # $CONTROL writeable by everyone
  43. MASTER=/var/pcp/config/pmie/control.master
  44. CONTROL=$PMIEDIR/control
  45.  
  46. # __init
  47. # initialize the temporary directory
  48. __init()
  49. {
  50.     if [ ! -d $PMIEDIR ]
  51.     then
  52.     mkdir $PMIEDIR
  53.     chmod 777 $PMIEDIR
  54.     fi
  55.     if [ ! -f $CONTROL ]
  56.     then
  57.     cp $MASTER $CONTROL
  58.     chmod 666 $CONTROL
  59.     fi
  60. }
  61.  
  62. # _lock
  63. # return 0 if lock acquired, else 1
  64. #
  65. _lock()
  66. {
  67.     __init
  68.     i=0
  69.     while [ $i -lt $LOCKWAIT ]
  70.     do
  71.     if /usr/pcp/bin/pmlock $LOCK
  72.     then
  73.         return 0
  74.     fi
  75.     sleep 1
  76.     i=`expr $i + 1`
  77.     done
  78.  
  79.     return 1
  80. }
  81.  
  82. # _unlock
  83. # unilaterally unlock, be removing the file
  84. #
  85. _unlock()
  86. {
  87.     rm -f $LOCK
  88. }
  89.  
  90. # _ok action-name
  91. # check if action may proceed
  92. #
  93. _ok()
  94. {
  95.     __init
  96.     mintime=""
  97.     eval `nawk <$CONTROL '
  98. $1 == "'"$1"'"    { print "mintime=" $2 " maxconcur=" $3 " laststamp=" $4 }'`
  99.     # if no entry in the control file, then no restrictions
  100.     [ "X$mintime" = "X" ] && return 0
  101.     if [ "X$mintime" != X- ]
  102.     then
  103.     # minimum time between invocations specified
  104.     check=`pmdate -${mintime}S %y%m%d%H%M%S`
  105.     # paranoia, in case file may have been corrupted
  106.     [ "X$laststamp" = X ] && laststamp=000000000000
  107.     if [ "$check" -lt "$laststamp" ]
  108.     then
  109.         # too soon
  110.         return 1
  111.     fi
  112.     fi
  113.     if [ "X$maxconcur" != X- ]
  114.     then
  115.     # maximum number of concurrent invocations specified
  116.     concur=`ps -ef \
  117.         | sed -e 's/ [0-2][0-9]:[0-5][0-9]:[0-5][0-9] / To Day /' \
  118.         | nawk '
  119. $9 ~ /\/'"$1"'$/ || $9 == "'"$1"'"            { print; next }
  120. $9 ~ /sh$/ && ( $10 ~ /\/'"$1"'$/ || $10 == "'"$1"'" )    { print; next }
  121. $9 ~ /sh$/ && $10 ~ /^-/ \
  122. && ( $11 ~ /\/'"$1"'$/ || $11 == "'"$1"'" )        { print; next }' \
  123.         | wc -l`
  124.     if [ "$concur" -gt "$maxconcur" ]
  125.     then
  126.         # too many
  127.         return 1
  128.     fi
  129.     fi
  130.  
  131.     return 0
  132. }
  133.  
  134. # _stamp action-name
  135. # update date and time stamp, if required
  136. #
  137. _stamp()
  138. {
  139.     __init
  140.     mintime=""
  141.     eval `nawk <$CONTROL '
  142. $1 == "'"$1"'"    { print "mintime=" $2 " maxconcur=" $3 " laststamp=" $4 }'`
  143.     # if no entry in the control file, then nothing to update
  144.     [ "X$mintime" = "X" ] && return
  145.     if [ "X$mintime" != X- ]
  146.     then
  147.     # minimum time between invocations specified, so update
  148.     now=`pmdate +0S %y%m%d%H%M%S`
  149.     nawk <$CONTROL >$CONTROL.new '
  150. $1 == "'"$1"'"    { print $1 "    " $2 "    " $3 "    '"$now"'"; next }
  151.         { print }'
  152.     mv $CONTROL.new $CONTROL
  153.     chmod 666 $CONTROL
  154.     fi
  155. }
  156.